home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 May / Ahoy_Magazine_87-05_1987_Double_L_Side_A.d64 / Outcast Order (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  315 b   |  11 lines
  1. 0 rem << cd41-4 >>
  2. 1 rem ==================================
  3. 2 rem    commodares problem #37-2 :
  4. 3 rem    outcast order
  5. 4 rem    solution by
  6. 5 rem    david hoffner
  7. 6 rem ==================================
  8. 10 input"people";n:input"outcast #";m:dim a(n)
  9. 20 y=y+1+n*(y=n):on a(y) goto 20:x=x+1:if x=m then print y:a(y)=1:x=0
  10. 30 goto 20
  11.